home *** CD-ROM | disk | FTP | other *** search
;PAGESTREAM 3.2 BETA 8 ONLINE UPDATE PATCH INSTALLATION SCRIPT ;COPYRIGHT ©1996 SOFTLOGIK PUBLISHING CORPORATION ;WARN WEENIES TO GET LOST (message "\n\nThis is a pre-release beta version of PageStream 3.2. Stop now if you haven't read the Read.1st! file. Clicking Proceed indicates that you are knowingly installing beta software on your system.") ;QUIT PROGRAMS (message "\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.") (run "avail flush" (safe)) ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG (run "CD PageStream3:" (safe)) (run "CD SoftLogik:" (safe)) (run "assign fonts: softlogik:fonts add" (safe)) ;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION (message ("\n\nThis patch will update your PageStream 3.2 beta 7 hard drive installation to 3.2 beta 8.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.2 beta 7 installed to use this patch.\n\nYou MUST have a battery-backed clock in your computer to use this version.")) (if (<> (exists "PageStream3:PageStream3") 1) (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.2 beta 7 before applying this update patch.") ) ;get destination (set PGSdest (getassign "PageStream3" "a")) (set SLdest (getassign "SoftLogik" "a")) (if (OR (= PGSdest "") (= SLdest "")) (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.2 beta 7 before applying this update patch.") ) (set PGSsize (getsize "PageStream3:PageStream3")) (if (<> PGSsize 1451836) (abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.") ) (set @default-dest PGSdest) ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos))) (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos))) (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos))) (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos))) (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos))) (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos))) (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos))) (if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos))) (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos))) (if (= (exists "PageStream3:PageStream3.rsrc") 1) (delete "PageStream3:PageStream3.rsrc" (safe))) ;COPY THE LHEX PROGRAM TO RAM: (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge)) ;UPDATE HELP SYSTEM (working "Installing Updated Help Files...") ;Delete old help files (if (= (exists "PageStream3:Help/PGS.DOC") 1) (delete "PageStream3:Help/PGS.DOC" (safe))) (if (= (exists "PageStream3:Help/PGS.EDI") 1) (delete "PageStream3:Help/PGS.EDI" (safe))) (if (= (exists "PageStream3:Help/PGS.GRA") 1) (delete "PageStream3:Help/PGS.GRA" (safe))) (if (= (exists "PageStream3:Help/PGS.LAY") 1) (delete "PageStream3:Help/PGS.LAY" (safe))) (if (= (exists "PageStream3:Help/PGS.MAC") 1) (delete "PageStream3:Help/PGS.MAC" (safe))) (if (= (exists "PageStream3:Help/PGS.MEN") 1) (delete "PageStream3:Help/PGS.MEN" (safe))) (if (= (exists "PageStream3:Help/PGS.OBJ") 1) (delete "PageStream3:Help/PGS.OBJ" (safe))) (if (= (exists "PageStream3:Help/PGS.PRO") 1) (delete "PageStream3:Help/PGS.PRO" (safe))) (if (= (exists "PageStream3:Help/PGS.SAL") 1) (delete "PageStream3:Help/PGS.SAL" (safe))) (if (= (exists "PageStream3:Help/PGS.SUB") 1) (delete "PageStream3:Help/PGS.SUB" (safe))) (if (= (exists "PageStream3:Help/PGS.TEX") 1) (delete "PageStream3:Help/PGS.TEX" (safe))) (if (= (exists "PageStream3:Help/PGS.MSU") 1) (delete "PageStream3:Help/PGS.MSU" (safe))) (if (= (exists "PageStream3:Help/PGS.TYP") 1) (delete "PageStream3:Help/PGS.TYP" (safe))) (if (= (exists "PageStream3:Help/PGS.VIE") 1) (delete "PageStream3:Help/PGS.VIE" (safe))) (if (= (exists "PageStream3:Help/BME.EDI") 1) (delete "PageStream3:Help/BME.EDI" (safe))) (if (= (exists "PageStream3:Help/BME.EFF") 1) (delete "PageStream3:Help/BME.EFF" (safe))) (if (= (exists "PageStream3:Help/BME.MAC") 1) (delete "PageStream3:Help/BME.MAC" (safe))) (if (= (exists "PageStream3:Help/BME.MEN") 1) (delete "PageStream3:Help/BME.MEN" (safe))) (if (= (exists "PageStream3:Help/BME.PRO") 1) (delete "PageStream3:Help/BME.PRO" (safe))) (if (= (exists "PageStream3:Help/BME.SET") 1) (delete "PageStream3:Help/BME.SET" (safe))) (if (= (exists "PageStream3:Help/BME.TOO") 1) (delete "PageStream3:Help/BME.TOO" (safe))) (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.lha") (delete "Help.LHA" (safe)) ;UPDATE LIBS (working "Installing Updated Libraries...") (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha") (delete "Libs.LHA" (safe)) ;UPDATE PRINTERS (working "Installing Updated Printer Drivers...") (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha") (delete "Printers.LHA" (safe)) ;UPDATE FILTERS AND EFFECTS (working "Installing Updated Filters...") (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha") (delete "Filters.LHA" (safe)) ;UPDATE ENGINES (working "Installing Updated Engines...") (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha") (delete "Engines.LHA" (safe)) ;UPDATE SCRIPTS (working "Installing Updated Scripts...") (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha") (delete "Scripts.LHA" (safe)) ;UPDATE PAGESTREAM3 (working "Patching PageStream to new version...\n\nThis will take a while...") (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA") (delete "PGSpatch.LHA" (safe)) (run "spatch >NIL: <NIL: -oPageStream3:PageStreamNew -pram:PageStream.pch PageStream3:PageStream3") (if (exists "PageStream3:PageStreamNew") ( (delete "PageStream3:PageStream3") (rename "PageStream3:PageStreamNew" "PageStream3:PageStream3") ) (abort "The patch to PageStream was not successful. Refer to the Read.1st! file for instructions.") ) (delete "ram:PageStream.pch" (safe)) ;DISPLAY README (Try 3 different ways!) (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA") (delete "Read.LHA" (safe)) (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0) (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0) (run "More PageStream3:ReadMe.Now") ) ) ;REMOVE THE LHEX PROGRAM (delete "ram:lhex" (safe)) (delete "spatch" (safe)) (delete "Install-Beta8.info" (safe)) ;DONE (exit "Finished Installation") 
